home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
comm
/
fido
/
Rock_1_5.lha
/
ROCK
/
bossoutbound.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-05-11
|
996b
|
43 lines
/*
Rock v1.5 - Fidonet mailer for point systems
Copyright (C) 1995 Jean-Marc Xiume'
This software is distributed under the terms of the
GNU General Public License. Read "license.doc" for more details.
********** rename boss outbound files to match remote address **********
*/
options results
options failat 99
Parse upper arg od ha ra .
parse var ha hd "#" hz ":" hn "/" hf "." hp .
parse var ra rd "#" rz ":" rn "/" rf "." rp .
if hd||hz||hn||hf = rd||rz||rn||rf then exit 0
id=pragma('ID')
Address COMMAND 'LIST >T:f'id od||hz'.'hn'.'hf'.'0'.??? quick nohead'
if word(statef("T:f"id),2)=0 then return 0
if ~open('fl',"T:f"id,'R') then return 0
do while ~eof('fl')
L=Upper(strip(ReadLn('fl'),'B'))
if L="" then iterate
parse var L x '.' x '.' x '.' x '.' ex
drop x
sx=right(ex,2)
if sx="LO"|sx="UT"|ex="REQ" then do
Address COMMAND 'rename 'od||L' 'od||rz'.'rn'.'rf'.0.'ex
end
end
v=close('fl')
v=delete('T:f'id)
exit 0